home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
LIBRARY
/
CMPLTPAS
/
DEMOMENU.DEF
< prev
next >
Wrap
Text File
|
1988-07-24
|
20KB
|
344 lines
{->>>>DemoMenu<<<<---------------------------------------------}
{ }
{ Filename : DEMOMENU.DEF -- Last Modified 7/14/88 }
{ }
{ This may be the largest structured constant you'll ever see. }
{ It defines a menu used by the PULLDOWN.PAS menu unit, which }
{ implements a pulldown menuing system using the BGI. You can }
{ copy this file to a new file and modify it to suit your }
{ own applications. }
{ }
{ The MenuDesc type is defined in unit PullDown. }
{ }
{ From: COMPLETE TURBO PASCAL 5.0 by Jeff Duntemann }
{ Scott, Foresman & Co., Inc. 1988 ISBN 0-673-38355-5 }
{--------------------------------------------------------------}
CONST
DemoMenu : MenuDesc =
((XStart : 18; XEnd : 58;
Title : 'Files';
MenuSize : 11;
Imageptr : NIL;
Active : True;
Choices : 5; ItemList :
((Item : 'Retrieve'; ItemCode : 21; ItemActive : True),
(Item : 'Save'; ItemCode : 22; ItemActive : True),
(Item : 'Delete'; ItemCode : 23; ItemActive : True),
(Item : 'Rename'; ItemCode : 24; ItemActive : True),
(Item : 'Quit'; ItemCode : 25; ItemActive : True),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False))),
(XStart : 74; XEnd : 114;
Title : 'Edit';
MenuSize : 11;
Imageptr : NIL;
Active : True;
Choices : 9; ItemList :
((Item : 'Grab'; ItemCode : 31; ItemActive : True),
(Item : 'Pull'; ItemCode : 32; ItemActive : True),
(Item : 'Erase'; ItemCode : 33; ItemActive : False),
(Item : 'Join'; ItemCode : 34; ItemActive : False),
(Item : 'Swap'; ItemCode : 35; ItemActive : False),
(Item : 'Invert'; ItemCode : 36; ItemActive : True),
(Item : 'Recolor'; ItemCode : 37; ItemActive : True),
(Item : 'Split'; ItemCode : 38; ItemActive : True),
(Item : 'Duplicate'; ItemCode : 39; ItemActive : True),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False))),
(XStart : 129; XEnd : 175;
Title : 'Draw';
MenuSize : 11;
Imageptr : NIL;
Active : True;
Choices : 4; ItemList :
((Item : 'Freehand'; ItemCode : 41; ItemActive : True),
(Item : 'Polyline'; ItemCode : 42; ItemActive : True),
(Item : 'Spray'; ItemCode : 43; ItemActive : True),
(Item : 'Dragstamp'; ItemCode : 44; ItemActive : True),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False))),
(XStart : 179; XEnd : 215;
Title : 'Text';
MenuSize : 11;
Imageptr : NIL;
Active : True;
Choices : 5; ItemList :
((Item : 'Load Font'; ItemCode : 51; ItemActive : True),
(Item : 'Place Text'; ItemCode : 52; ItemActive : True),
(Item : 'Set Direction'; ItemCode : 53; ItemActive : True),
(Item : 'Dropshadow'; ItemCode : 54; ItemActive : True),
(Item : 'Point Size'; ItemCode : 55; ItemActive : True),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False))),
(XStart : 15; XEnd : 55;
Title : '';
MenuSize : 0;
Imageptr : NIL;
Active : False;
Choices : 0; ItemList :
((Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False))),
(XStart : 15; XEnd : 55;
Title : '';
MenuSize : 0;
Imageptr : NIL;
Active : False;
Choices : 0; ItemList :
((Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False))),
(XStart : 15; XEnd : 55;
Title : '';
MenuSize : 0;
Imageptr : NIL;
Active : False;
Choices : 0; ItemList :
((Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False))),
(XStart : 15; XEnd : 55;
Title : '';
MenuSize : 0;
Imageptr : NIL;
Active : False;
Choices : 0; ItemList :
((Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False))),
(XStart : 15; XEnd : 55;
Title : '';
MenuSize : 0;
Imageptr : NIL;
Active : False;
Choices : 0; ItemList :
((Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False))),
(XStart : 15; XEnd : 55;
Title : '';
MenuSize : 0;
Imageptr : NIL;
Active : False;
Choices : 0; ItemList :
((Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False))),
(XStart : 15; XEnd : 55;
Title : '';
MenuSize : 0;
Imageptr : NIL;
Active : False;
Choices : 0; ItemList :
((Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False))),
(XStart : 15; XEnd : 55;
Title : '';
MenuSize : 0;
Imageptr : NIL;
Active : False;
Choices : 0; ItemList :
((Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False))),
(XStart : 15; XEnd : 55;
Title : '';
MenuSize : 0;
Imageptr : NIL;
Active : False;
Choices : 0; ItemList :
((Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False),
(Item : ''; ItemCode : 0; ItemActive : False))));